%
set cnPubs = server.createobject("adodb.connection")
cnPubs.open connString
dim arrTours(99,5)
dim count
dim strTour
dim strSubject
dim strLogo
dim strbgImage
dim strbgColour
dim strTableBorder
dim strHiLo
dim strHires
dim strDisplayRes
dim strWindowWidth
dim strWindowHeight
dim strThisPage
dim strLocation
dim strLocationDisp
dim numberofbreaks
dim strTextHeight
dim strViewer
dim strGenre
dim strEmail
dim strDir
dim strSnippet
dim strClient
dim strClientDisp
dim strImageback
dim strIpixColour
dim strFullScreen
strTour = request.querystring("tour")
strHiLo = trim(request.querystring("res"))
strLocation = request.querystring("location")
strViewer = request.querystring("viewer")
strGenre = request.querystring("genre")
strClient = trim(request.querystring("client"))
if strClient <> "" then
strSQL = "select clientId, clientName,clientEmail, genreId, clientLogoAlt, clientBgColor, clientTableBorder, clientipixcolor, clientImageback from tbl_client where clientname = '" & strClient & "';"
set rsClient = server.createobject("adodb.recordset")
rsClient.open strSQL, cnPubs
if not rsClient.eof then
strEmail = trim(rsClient("clientEmail"))
strLogo = trim(rsClient("clientLogoAlt"))
strbgColour = trim(rsClient("clientBgColor"))
strTableBorder = trim(rsClient("clientTableBorder"))
strIpixColour = trim(rsClient("clientipixcolor"))
strImageback = trim(rsClient("clientImageback"))
end if
rsClient.close
set rsClient = nothing
end if
if strLocation <> "" then
strSQL = "select locationID, locationName, locationDisp, locationSnippet, locationDir,locationNoBreaks from tbl_location where locationName = '" & strLocation & "';"
set rsLocation = server.createobject("adodb.recordset")
rsLocation.open strSQL, cnPubs
if not rsLocation.eof then
strLocationID = rsLocation("locationID")
strLocation = trim(rsLocation("locationName"))
strLocationDisp = trim(rsLocation("locationDisp"))
strSnippet = trim(rsLocation("locationSnippet"))
strDir = trim(rsLocation("locationDir"))
numberofbreaks = rsLocation("locationNoBreaks")
end if
rsLocation.close
set rsLocation = nothing
end if
' resolution stuff, and defaults, all hardcoded ========================================
if strHiLo = "hi" then
strHires = "hi"
strDisplayRes = "large images"
strWindowWidth = "500"
strWindowHeight = "375"
strTextHeight = "23"
end if
if strHiLo = "md" then
strHires = "md"
strDisplayRes = "medium images"
strWindowWidth = "400"
strWindowHeight = "300"
strTextHeight = "30"
end if
if strHiLo = "lo" then
strHires = "lo"
strDisplayRes = "small images"
strWindowWidth = "320"
strWindowHeight = "240"
strTextHeight = "18"
end if
if trim(strTour) = "" then
strTour = 0
end if
if trim(strViewer) = "" then
strViewer = "java"
end if
strThisPage = "vtourmayer"
' load the tour array
strSQL = "select tourId, tourSort, tourName, tourNameDisp, tourDesc, locationId, initialTour from tbl_tour where locationID = " & strLocationID & " order by tourSort;"
set rsTours = server.createobject("adodb.recordset")
rsTours.open strSQL, cnPubs
count = 0
do while not rsTours.eof
arrTours(count,0) = trim(rsTours("tourNameDisp"))
arrTours(count,1) = strDir & trim(rsTours("tourName")) & strHires & ".ipx"
arrTours(count,2) = trim(rsTours("tourDesc"))
arrTours(count,3) = strDir & trim(rsTours("tourName")) & "qt" & strHires & ".mov"
arrTours(count,4) = strDir & trim(rsTours("tourName")) & "vr.wrl"
count = count + 1
rsTours.movenext
loop
strFullScreen = arrTours(strTour,3)
strFullScreen = replace(strFullScreen,"lo.mov","hi.mov")
strFullScreen = replace(strFullScreen,"md.mov","hi.mov")
rsTours.close
set rsTours = nothing
%>
Virtual Tour Group | Mayer Luz Beach Apartments | <%=strLocationDisp%> Virtual Tour
Scene Selection
Welcome to the Mayer Luz Beach Apartments Virtual Tours.Please take a moment to view the accommodation and resort. Please allow the images to download fully.
Image size: Large Medium Small
Currently viewing <%=strDisplayRes%>